﻿Imports Microsoft.SqlServer.Dts.Runtime
Imports Microsoft.SqlServer.Dts.Runtime.Design

Public Class SMSTaskUI
    Implements IDtsTaskUI

    Dim m_taskHost As TaskHost
    Dim m_connections As Connections

    Public Sub Initialize(ByVal th As TaskHost, ByVal serviceprovider As System.IServiceProvider) Implements IDtsTaskUI.Initialize
        Me.m_connections = DirectCast(serviceprovider.GetService(GetType(IDtsConnectionService)), IDtsConnectionService).GetConnections()
        Me.m_taskHost = th
    End Sub

    Public Sub Delete(ByVal parentWindows As System.Windows.Forms.IWin32Window) Implements IDtsTaskUI.Delete

    End Sub

    Public Function GetView() As System.Windows.Forms.ContainerControl Implements IDtsTaskUI.GetView
        Return New SMSTaskForm(Me.m_taskHost, Me.m_connections)
    End Function

    Public Sub [New](ByVal parentWindow As System.Windows.Forms.IWin32Window) Implements Microsoft.SqlServer.Dts.Runtime.Design.IDtsTaskUI.New

    End Sub

End Class